Public Class CSettings

    Dim _strUserid As String
    Dim _intKeyId As Integer
    Dim _strKeyName As String
    Dim _strKeyType As String
    Dim _strKeyValue As String
    'Dim _strKeyDesc As String


    Public Property UserID() As String
        Get
            Return _strUserid
        End Get
        Set(ByVal value As String)
            _strUserid = value
        End Set
    End Property
    Public Property KeyID() As Integer
        Get
            Return _intKeyId
        End Get
        Set(ByVal value As Integer)
            _intKeyId = value
        End Set
    End Property
    Public Property KeyName() As String
        Get
            Return _strKeyName
        End Get
        Set(ByVal value As String)
            _strKeyName = value
        End Set
    End Property
    Public Property KeyType() As String
        Get
            Return _strKeyType
        End Get
        Set(ByVal value As String)
            _strKeyType = value
        End Set
    End Property
    Public Property KeyValue() As String
        Get
            Return _strKeyValue
        End Get
        Set(ByVal value As String)
            _strKeyValue = value
        End Set
    End Property
    'Public Property KeyDescr() As String
    '    Get
    '        Return _strKeyDesc
    '    End Get
    '    Set(ByVal value As String)
    '        _strKeyDesc = value
    '    End Set
    'End Property

    'Dim _City As Integer
    'Dim _State As Integer
    'Dim _Country As Integer
    'Dim _strTitle As String
    'Dim _strSaleRate As String
    'Dim _strSaleCommission As String

    'Dim _strCurrency As String
    'Dim _strNameSeq As String
    'Dim _strCounter As String
    'Dim _chrCompany As Char
    'Dim _strCounter1 As String
    'Dim _strCounter2 As String
    'Dim _strCounter3 As String
    'Dim _strCounter4 As String
    'Dim _strCounter5 As String
    'Dim _strCounter6 As String
    'Dim _strCounter7 As String
    'Dim _strCounter8 As String
    'Dim _strCounter9 As String
    'Dim _strCounter10 As String

    'Public Property City() As Integer
    '    Get
    '        Return _City
    '    End Get
    '    Set(ByVal value As Integer)
    '        _City = value
    '    End Set
    'End Property
    'Public Property State() As Integer
    '    Get
    '        Return _State
    '    End Get
    '    Set(ByVal value As Integer)
    '        _State = value
    '    End Set
    'End Property
    'Public Property Country() As Integer
    '    Get
    '        Return _Country
    '    End Get
    '    Set(ByVal value As Integer)
    '        _Country = value
    '    End Set
    'End Property
    'Public Property Title() As String
    '    Get
    '        Return _strTitle
    '    End Get
    '    Set(ByVal value As String)
    '        _strTitle = value
    '    End Set
    'End Property
    'Public Property SaleRate() As String
    '    Get
    '        Return _strSaleRate
    '    End Get
    '    Set(ByVal value As String)
    '        _strSaleRate = value
    '    End Set
    'End Property
    'Public Property SaleRateCommission() As String
    '    Get
    '        Return _strSaleCommission
    '    End Get
    '    Set(ByVal value As String)
    '        _strSaleCommission = value
    '    End Set
    'End Property
    'Public Property Currency() As String
    '    Get
    '        Return _strCurrency
    '    End Get
    '    Set(ByVal value As String)
    '        _strCurrency = value
    '    End Set
    'End Property
    'Public Property NameSeq() As String
    '    Get
    '        Return _strNameSeq
    '    End Get
    '    Set(ByVal value As String)
    '        _strNameSeq = value
    '    End Set
    'End Property
    'Public Property DefaultCounter() As String
    '    Get
    '        Return _strCounter
    '    End Get
    '    Set(ByVal value As String)
    '        _strCounter = value
    '    End Set
    'End Property
    'Public Property Company() As Char
    '    Get
    '        Return _chrCompany
    '    End Get
    '    Set(ByVal value As Char)
    '        _chrCompany = value
    '    End Set
    'End Property
    'Public Property Name_Counter1() As String
    '    Get
    '        Return _strCounter1
    '    End Get
    '    Set(ByVal value As String)
    '        _strCounter1 = value
    '    End Set
    'End Property
    'Public Property Name_Counter2() As String
    '    Get
    '        Return _strCounter2
    '    End Get
    '    Set(ByVal value As String)
    '        _strCounter2 = value
    '    End Set
    'End Property
    'Public Property Name_Counter3() As String
    '    Get
    '        Return _strCounter3
    '    End Get
    '    Set(ByVal value As String)
    '        _strCounter3 = value
    '    End Set
    'End Property
    'Public Property Name_Counter4() As String
    '    Get
    '        Return _strCounter4
    '    End Get
    '    Set(ByVal value As String)
    '        _strCounter4 = value
    '    End Set
    'End Property
    'Public Property Name_Counter5() As String
    '    Get
    '        Return _strCounter5
    '    End Get
    '    Set(ByVal value As String)
    '        _strCounter5 = value
    '    End Set
    'End Property
    'Public Property Name_Counter6() As String
    '    Get
    '        Return _strCounter6
    '    End Get
    '    Set(ByVal value As String)
    '        _strCounter6 = value
    '    End Set
    'End Property
    'Public Property Name_Counter7() As String
    '    Get
    '        Return _strCounter7
    '    End Get
    '    Set(ByVal value As String)
    '        _strCounter7 = value
    '    End Set
    'End Property
    'Public Property Name_Counter8() As String
    '    Get
    '        Return _strCounter8
    '    End Get
    '    Set(ByVal value As String)
    '        _strCounter8 = value
    '    End Set
    'End Property
    'Public Property Name_Counter9() As String
    '    Get
    '        Return _strCounter9
    '    End Get
    '    Set(ByVal value As String)
    '        _strCounter9 = value
    '    End Set
    'End Property
    'Public Property Name_Counter10() As String
    '    Get
    '        Return _strCounter10
    '    End Get
    '    Set(ByVal value As String)
    '        _strCounter10 = value
    '    End Set
    'End Property
End Class
